Cherry Tree Flowering Date
Historical series of phenological data for cherry tree flowering at Kyoto City
Prepare Data
# devtools::install_github("derekmichaelwright/agData")
library(agData)# Prep data
myCaption <- "www.dblogr.com/ or derekmichaelwright.github.io/dblogr/ | Data: OPU"
dd <- read.csv("KyotoFullFlower7.csv") %>%
filter(!is.na(Full.flowering.date..DOY.))All Data
# Plot
mp <- ggplot(dd, aes(x = AD, y = Full.flowering.date..DOY.)) +
geom_smooth(method = "loess", se = F, color = "black") +
geom_line(alpha = 0.8, color = "darkgreen") +
scale_x_continuous(breaks = seq(800, 2000, 100)) +
theme_agData() +
labs(title = "Cherry Tree Flowering Date - Kyoto City",
y = "Day of the Year", x = NULL, caption = myCaption)
ggsave("cherry_trees_01.png", mp, width = 12, height = 4)Last 100 Years
# Prep data
xx <- dd %>% filter(AD > 1900)
# Plot
mp <- ggplot(xx, aes(x = AD, y = Full.flowering.date..DOY.)) +
geom_smooth(method = "lm", se = F, color = "darkgreen") +
geom_line(alpha = 0.8) +
scale_x_continuous(breaks = seq(1900, 2020, 20),
minor_breaks = seq(1900, 2020, 10)) +
theme_agData() +
labs(title = "Cherry Tree Flowering Date - Kyoto City",
y = "Day of the Year", x = NULL, caption = myCaption)
ggsave("cherry_trees_02.png", mp, width = 6, height = 4)